home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / tgif.d64 / tgif (.txt) < prev   
Encoding:
Commodore BASIC  |  1995-03-03  |  4.4 KB  |  140 lines
  1. 10 PRINTCHR$(147):POKE53280,7:POKE53281,7:POKE649,0:POKE788,52:POKE46,93:POKE45,191:CLR
  2. 20 PRINT"  [154][207][183][183][183][183][183][183][208]"
  3. 25 PRINT"  [180][206][205]    [170]"
  4. 30 PRINT"  [180][180][170] [178] [178][170]"
  5. 40 PRINT"  [180][180][170] [221] [221][170]"
  6. 50 PRINT"  [207][207][208][183]T[183]T[208]"
  7. 60 PRINT"  [180][180][170] [221] [221][170]"
  8. 70 PRINT"  [180]   [177] [177][170]"
  9. 80 PRINT"  [204][175][175][175][175][175][175][186]"
  10. 90 PRINT"[145][145][145][145][149]MICROCOMPUTER GAMES"
  11. 100 PRINT"[151]PRESENTS"
  12. 110 PRINT"[156]"
  13. 120 PRINT"        [214][214][214][214][214]  [214][214][214][214]   [214][214][214]   [214][214][214][214]"
  14. 130 PRINT"          [214]    [214]       [214]    [214]"
  15. 140 PRINT"          [214]    [214]       [214]    [214][214][214]"
  16. 150 PRINT"          [214]    [214] [214][214]    [214]    [214]"
  17. 160 PRINT"          [214]    [214][214][214][214]   [214][214][214]   [214]"
  18. 170 PRINT"          [214]  [209] [214][214][214][214] [209] [214][214][214] [209] [214]  [209]"
  19. 180 PRINT"     INITIALIZING... ONE MOMENT PLEASE!"
  20. 190 PRINT"[129](C) 1983 BY THE AVALON HILL GAME COMPANY"
  21. 195 PRINT" ALL RIGHTS RESERVED. COMPUTER PROGRAM"
  22. 196 PRINT" AND AUDIO-VISUAL DISPLAY COPYRIGHTED."
  23. 200 FORL=49160TO49991:READD:POKEL,D:NEXT
  24. 210 FORL=49152TO49159:READD:POKEL,D:NEXT
  25. 220 FORL=50000TO50111:READD:POKEL,D:NEXT
  26. 225 FORL=50115TO50136:READD:POKEL,D:NEXT
  27. 230 PRINT"[145][145][145][145][145][145][145]      PREPARE FOR THE WORKING WEEK!     "
  28. 240 GOSUB400:GOSUB300:GOSUB300:GOSUB350
  29. 250 LOAD"TGIF-PROCESS",8:RUN:END
  30. 300 POKES+5,9:POKES+6,9:FORL=50061TO50073STEP3
  31. 310 POKES+1,PEEK(L):POKES,PEEK(L+1):POKES+4,17
  32. 320 L1=PEEK(L+2):FORL2=1TOL1*100:NEXT:POKES+4,16:NEXT:GOSUB410:RETURN
  33. 350 POKES+5,9:POKES+6,9:FORL=50076TO50109STEP3
  34. 360 POKES+1,PEEK(L):POKES,PEEK(L+1):POKES+4,17
  35. 370 L1=PEEK(L+2):FORL2=1TOL1*100:NEXT:POKES+4,16:NEXT:GOSUB410:RETURN
  36. 400 S=54272:POKES+24,15
  37. 410 FORL=STOS+23:POKEL,0:NEXT:RETURN
  38. 500 DATA 0,0,0,0,0,0,0,0,0
  39. 510 DATA 0,0,0,0,0,0,0,0,0
  40. 520 DATA 0,0,0,0,63,2,66,132,194
  41. 530 DATA 75,234,170,110,170,171,74,168,2
  42. 540 DATA 64,168,0,0,40,0,0,8,0
  43. 550 DATA 0,0,0,0,0,0,0,0,0
  44. 560 DATA 0,0,0,0,0,0,0,0,0,0
  45. 570 DATA 0,0,0,0,0,0,1,85,0
  46. 580 DATA 5,85,64,21,85,80,23,255,80
  47. 590 DATA 93,85,212,117,85,116,85,85,86
  48. 600 DATA 85,85,87,85,85,87,85,85,86
  49. 610 DATA 85,85,84,85,85,84,21,85,80
  50. 620 DATA 22,102,80,5,85,64,1,85,0
  51. 630 DATA 0,60,0,0,40,0,0,60,0,0
  52. 640 DATA 85,85,85,64,0,1,104,34,9
  53. 650 DATA 98,34,9,104,34,9,98,34,9
  54. 660 DATA 98,34,9,104,34,138,64,0,1
  55. 670 DATA 64,0,1,124,51,63,115,51,49
  56. 680 DATA 115,51,61,115,51,49,115,51,49
  57. 690 DATA 124,63,63,64,0,1,64,0,1
  58. 700 DATA 64,0,1,64,0,1,85,85,85,0
  59. 710 DATA 0,0,0,0,0,0,0,0,0
  60. 720 DATA 0,0,0,0,21,85,0,21,213
  61. 730 DATA 5,87,245,4,23,85,4,151,245
  62. 740 DATA 85,85,117,149,87,245,149,85,213
  63. 750 DATA 85,85,85,89,85,101,42,0,168
  64. 760 DATA 8,0,32,0,0,0,0,0,0
  65. 770 DATA 0,0,0,0,0,0,0,0,0,0
  66. 780 DATA 0,0,0,0,0,0,0,0,0
  67. 790 DATA 0,0,0,0,0,0,0,0,0
  68. 800 DATA 0,0,0,0,0,0,0,12,0
  69. 810 DATA 64,29,12,106,151,79,106,149,223
  70. 820 DATA 0,0,0,0,0,0,0,0,0
  71. 830 DATA 0,0,0,0,0,0,0,0,0
  72. 840 DATA 0,0,0,0,0,0,0,0,0,0
  73. 850 DATA 0,0,0,0,0,0,0,0,0
  74. 860 DATA 0,0,0,0,0,0,0,0,0
  75. 870 DATA 0,3,0,0,131,0,1,102,85
  76. 880 DATA 5,102,91,21,106,85,151,255,229
  77. 890 DATA 10,128,168,2,0,32,0,0,0
  78. 900 DATA 0,0,0,0,0,0,0,0,0
  79. 910 DATA 0,0,0,0,0,0,0,0,0,0
  80. 920 DATA 0,4,0,0,4,0,0,20,0
  81. 930 DATA 0,20,0,0,84,0,0,84,0
  82. 940 DATA 1,84,0,1,84,0,5,84,0
  83. 950 DATA 5,84,0,170,170,170,42,170,232
  84. 960 DATA 58,170,160,194,170,128,0,0,0
  85. 970 DATA 0,0,0,0,0,0,0,0,0
  86. 980 DATA 0,0,0,0,0,0,0,0,0,0
  87. 990 DATA 64,0,1,84,0,21,85,65,85
  88. 1000 DATA 85,85,89,101,85,221,105,215,185
  89. 1010 DATA 110,149,229,110,213,245,94,149,237
  90. 1020 DATA 86,85,253,85,85,173,121,85,185
  91. 1030 DATA 123,149,233,103,85,173,125,213,125
  92. 1040 DATA 102,85,245,85,85,109,85,65,93
  93. 1050 DATA 85,0,85,84,0,21,64,0,1,0
  94. 1060 DATA 0,0,0,0,0,0,0,0,0
  95. 1070 DATA 0,0,0,5,85,85,25,170,64
  96. 1080 DATA 38,170,144,26,170,64,21,215,64
  97. 1090 DATA 23,239,144,21,255,244,21,123,189
  98. 1100 DATA 21,85,85,5,85,85,1,85,85
  99. 1110 DATA 0,85,85,0,0,0,0,0,0
  100. 1120 DATA 0,0,0,0,0,0,0,0,0,0
  101. 1130 DATA 0,85,64,0,47,64,0,255,0
  102. 1140 DATA 0,63,0,0,12,0,0,42,0
  103. 1150 DATA 0,170,128,0,162,0,0,136,128
  104. 1160 DATA 0,34,128,0,138,128,3,238,192
  105. 1170 DATA 2,81,64,2,81,64,10,81,64
  106. 1180 DATA 8,81,64,8,81,64,8,81,64
  107. 1190 DATA 12,81,64,25,161,64,21,2,128,0
  108. 1200 DATA 0,85,64,0,110,64,0,59,0
  109. 1210 DATA 0,63,0,0,12,0,0,42,0
  110. 1220 DATA 0,170,128,0,170,128,0,136,128
  111. 1230 DATA 0,162,128,0,136,128,0,238,192
  112. 1240 DATA 0,89,64,0,72,64,0,72,64
  113. 1250 DATA 0,72,64,0,72,64,0,72,64
  114. 1260 DATA 0,76,64,0,89,64,0,149,128,0
  115. 1270 DATA 0,85,64,0,126,0,0,63,192
  116. 1280 DATA 0,63,0,0,12,0,0,42,0
  117. 1290 DATA 0,170,128,0,34,128,0,136,128
  118. 1300 DATA 0,162,0,0,168,128,0,238,240
  119. 1310 DATA 0,81,96,0,81,96,0,81,104
  120. 1320 DATA 0,81,72,0,81,72,0,81,72
  121. 1330 DATA 0,81,76,0,82,153,0,160,21,0
  122. 1340 DATA 5,0,0,21,64,0,15,0,0
  123. 1350 DATA 15,192,0,15,0,0,12,0,0
  124. 1360 DATA 40,0,0,42,0,0,42,4,0
  125. 1370 DATA 42,185,85,42,184,1,42,5,85
  126. 1380 DATA 63,0,0,21,0,0,21,0,0
  127. 1390 DATA 17,0,0,17,0,0,17,0,0
  128. 1400 DATA 17,0,0,51,0,0,21,64,0,0
  129. 1410 DATA 160,0,162,0,24,76,240,255
  130. 1420 DATA 169,63,160,0,153,0,4,153,200,4,153,88
  131. 1430 DATA 6,153,32,7,200,192,200,208,239,96
  132. 1440 DATA 169,13,160,0,153,0,216,200,192,240,208,248
  133. 1450 DATA 169,6,160,0,153,24,217,200,192,240,208,248,96
  134. 1460 DATA 160,0,185,8,193,153,128,3,200,192,63,208,245,96
  135. 1470 DATA 21,31,2,25,30,2,21,31,1,22,96,2,25,30,6
  136. 1480 DATA 42,62,2,42,62,3,33,135,1,37,162,2,33,135,2
  137. 1490 DATA 37,162,2,33,135,2,42,62,2,33,135,2,33,135,2,37,162,2,33,135,4
  138. 1500 DATA 169,1,162,0,157,0,216,157,250,216,157,244,217
  139. 1510 DATA 157,238,218,232,224,251,208,239,96
  140.